unit oFrameSimulation;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, oManager, oProcessObjectConstants, oProcessItem, ComCtrls;

type
  TframeSimulation = class(TFrame)
    trbSleepEvery: TTrackBar;
    trbSleepTime: TTrackBar;
    lblSleepEvery: TLabel;
    lblSleepTime: TLabel;
    chbOutput: TCheckBox;
    procedure btnStartClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    aManager : TManager;
  public
    { Public declarations }
    property Manager : TManager read aManager write aManager;
  end;

implementation

{$R *.dfm}

procedure TframeSimulation.btnStartClick(Sender: TObject);
begin
  aManager.Master.ProcessObject(TProcessItem.create(PO_SIM_RENDERER_START, NIL));
end;

procedure TframeSimulation.btnStopClick(Sender: TObject);
begin
  aManager.Master.ProcessObject(TProcessItem.create(PO_SIM_RENDERER_STOP, NIL));
end;

procedure TframeSimulation.Button1Click(Sender: TObject);
begin
  aManager.Master.ProcessObject(TProcessItem.create(PO_SIM_RENDERER_PAUSE, NIL));
end;

end.
